home *** CD-ROM | disk | FTP | other *** search
/ 1000 Apple LAN Literacy / 1000 Apple LAN Literacy.iso / Apple LAN Literacy / Literacy Segments Part 1 / Literacy Segments Part 1 / background_38709.txt < prev    next >
Text File  |  1989-08-22  |  9KB  |  433 lines
  1. -- background: 38709 from stack: in
  2. -- bmap block id: 38963
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 1.1.2 Practice3
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global answerTracker
  9.   beenHereFlag 2,1
  10.   -- first param is item #, second is line # (of global)
  11.  
  12.   send mouseUp to bg btn "done"
  13.   repeat with i = 1 to 2
  14.     get line (line 2 of fld "key") of answerTracker
  15.     if it = "y" and i = line 1 of fld "key"
  16.     then set the hilite of bg btn (6 + i) to true  -- True is btn 7
  17.   else set the hilite of bg btn (6 + i) to false -- False is btn 8
  18. end repeat
  19. pass openCard
  20. end openCard
  21.  
  22. on hideFeedback
  23.   lock screen
  24.   hide fld "Feedback1"
  25.   hide fld "Feedback2"
  26.   hide fld "CorrectAnswer"
  27.   hide fld "MasterFeedback"
  28.   hide bg btn "Done"
  29.   unlock screen
  30. end hideFeedback
  31.  
  32. on showFeedback
  33.   lock screen
  34.   show fld "Feedback1"
  35.   show fld "Feedback2"
  36.   show fld "CorrectAnswer"
  37.   show fld "MasterFeedback"
  38.   show bg btn "Done"
  39.   unlock screen
  40. end showFeedback
  41.  
  42. on feedback
  43.   global answerTracker
  44.   lock screen
  45.  
  46.   get (number of the target - 6)   -- True is btn 7, False is btn 8
  47.   if line (line 2 of fld "key") of answerTracker ‚↠"y" then
  48.     -- don't overwrite if Q has been answered
  49.     if it = line 1 of fld "key" then
  50.       -- this is the correct answer
  51.       put "y" into line (line 2 of fld "key") of answerTracker
  52.     else put "n" into line (line 2 of fld "key") of answerTracker
  53.   end if
  54.  
  55.   put fld ("feedback" & it) into fld "masterFeedback"
  56.   show fld "masterFeedback"
  57.   show bg btn "Done"
  58.  
  59.   unlock screen
  60. end feedback
  61.  
  62.  
  63. -- part 3 (field)
  64. -- low flags: 01
  65. -- high flags: 0000
  66. -- rect: left=18 top=1 right=38 bottom=442
  67. -- title width / last selected line: 0
  68. -- icon id / first selected line: 0 / 0
  69. -- text alignment: 0
  70. -- font id: 156
  71. -- text size: 24
  72. -- style flags: 10240
  73. -- line height: 32
  74. -- part name: Title
  75.  
  76.  
  77. -- part 14 (button)
  78. -- low flags: 00
  79. -- high flags: 0000
  80. -- rect: left=443 top=5 right=72 bottom=512
  81. -- title width / last selected line: 0
  82. -- icon id / first selected line: 0 / 0
  83. -- text alignment: 1
  84. -- font id: 0
  85. -- text size: 12
  86. -- style flags: 0
  87. -- line height: 16
  88. -- part name: Instant Reference
  89. ----- HyperTalk script -----
  90. on mouseUp
  91.   instantReference "1.1.2"
  92. end mouseUp
  93.  
  94.  
  95. -- part 15 (button)
  96. -- low flags: 00
  97. -- high flags: 2000
  98. -- rect: left=480 top=143 right=172 bottom=511
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 1310 / 1310
  101. -- text alignment: 1
  102. -- font id: 0
  103. -- text size: 12
  104. -- style flags: 0
  105. -- line height: 16
  106. -- part name: Student Services
  107. ----- HyperTalk script -----
  108. on mousedown
  109.   SSpopUp
  110. end mousedown
  111.  
  112. on mouseup
  113.   if the mouseloc is not within the rect of me then exit to hyperCard
  114.   doSS
  115. end mouseup
  116.  
  117.  
  118.  
  119. -- part 16 (button)
  120. -- low flags: 00
  121. -- high flags: 2000
  122. -- rect: left=482 top=176 right=205 bottom=511
  123. -- title width / last selected line: 0
  124. -- icon id / first selected line: 162 / 162
  125. -- text alignment: 1
  126. -- font id: 0
  127. -- text size: 12
  128. -- style flags: 0
  129. -- line height: 16
  130. -- part name: Help
  131. ----- HyperTalk script -----
  132. on mouseUp
  133.   Help
  134. end mouseUp
  135.  
  136.  
  137.  
  138. -- part 17 (button)
  139. -- low flags: 00
  140. -- high flags: 2000
  141. -- rect: left=482 top=294 right=320 bottom=509
  142. -- title width / last selected line: 0
  143. -- icon id / first selected line: 1236 / 1236
  144. -- text alignment: 1
  145. -- font id: 0
  146. -- text size: 12
  147. -- style flags: 0
  148. -- line height: 16
  149. -- part name: Last Menu
  150. ----- HyperTalk script -----
  151. on mouseUp
  152.   go to card "Communicating Story P/1"
  153. end mouseUp
  154.  
  155.  
  156.  
  157.  
  158. -- part 18 (button)
  159. -- low flags: 00
  160. -- high flags: 2000
  161. -- rect: left=478 top=319 right=341 bottom=498
  162. -- title width / last selected line: 0
  163. -- icon id / first selected line: 1238 / 1238
  164. -- text alignment: 1
  165. -- font id: 0
  166. -- text size: 12
  167. -- style flags: 0
  168. -- line height: 16
  169. -- part name: Prev
  170. ----- HyperTalk script -----
  171. on mouseUp
  172.   lock screen
  173.   go prev
  174.   unlock screen with scroll right
  175. end mouseUp
  176.  
  177.  
  178. -- part 19 (button)
  179. -- low flags: 00
  180. -- high flags: 2000
  181. -- rect: left=493 top=319 right=341 bottom=512
  182. -- title width / last selected line: 0
  183. -- icon id / first selected line: 1237 / 1237
  184. -- text alignment: 1
  185. -- font id: 0
  186. -- text size: 12
  187. -- style flags: 0
  188. -- line height: 16
  189. -- part name: Next
  190. ----- HyperTalk script -----
  191. on mouseUp
  192.   lock screen
  193.   go next
  194.   unlock screen with scroll left
  195. end mouseUp
  196.  
  197.  
  198. -- part 20 (field)
  199. -- low flags: 01
  200. -- high flags: 0000
  201. -- rect: left=16 top=38 right=67 bottom=438
  202. -- title width / last selected line: 0
  203. -- icon id / first selected line: 0 / 0
  204. -- text alignment: 0
  205. -- font id: 156
  206. -- text size: 20
  207. -- style flags: 0
  208. -- line height: 26
  209. -- part name: Subtitle
  210.  
  211.  
  212. -- part 21 (field)
  213. -- low flags: 01
  214. -- high flags: 0000
  215. -- rect: left=16 top=70 right=125 bottom=459
  216. -- title width / last selected line: 0
  217. -- icon id / first selected line: 0 / 0
  218. -- text alignment: 0
  219. -- font id: 156
  220. -- text size: 16
  221. -- style flags: 0
  222. -- line height: 17
  223. -- part name: Text
  224.  
  225.  
  226. -- part 22 (field)
  227. -- low flags: 01
  228. -- high flags: 0000
  229. -- rect: left=16 top=128 right=148 bottom=283
  230. -- title width / last selected line: 0
  231. -- icon id / first selected line: 0 / 0
  232. -- text alignment: 0
  233. -- font id: 3
  234. -- text size: 10
  235. -- style flags: 256
  236. -- line height: 15
  237. -- part name: Instruction
  238.  
  239.  
  240. -- part 23 (button)
  241. -- low flags: 00
  242. -- high flags: A004
  243. -- rect: left=301 top=137 right=154 bottom=370
  244. -- title width / last selected line: 0
  245. -- icon id / first selected line: 0 / 0
  246. -- text alignment: 1
  247. -- font id: 0
  248. -- text size: 12
  249. -- style flags: 0
  250. -- line height: 16
  251. -- part name: Yes
  252. ----- HyperTalk script -----
  253. on mouseUp
  254.   feedback
  255. end mouseUp
  256.  
  257.  
  258.  
  259. -- part 25 (button)
  260. -- low flags: 00
  261. -- high flags: A004
  262. -- rect: left=377 top=137 right=154 bottom=446
  263. -- title width / last selected line: 0
  264. -- icon id / first selected line: 0 / 0
  265. -- text alignment: 1
  266. -- font id: 0
  267. -- text size: 12
  268. -- style flags: 0
  269. -- line height: 16
  270. -- part name: No
  271. ----- HyperTalk script -----
  272. on mouseUp
  273.   feedback
  274. end mouseUp
  275.  
  276.  
  277. -- part 28 (field)
  278. -- low flags: 81
  279. -- high flags: 2007
  280. -- rect: left=8 top=36 right=94 bottom=231
  281. -- title width / last selected line: 0
  282. -- icon id / first selected line: 0 / 0
  283. -- text alignment: 0
  284. -- font id: 156
  285. -- text size: 16
  286. -- style flags: 0
  287. -- line height: 17
  288. -- part name: Feedback1
  289.  
  290.  
  291. -- part 29 (field)
  292. -- low flags: 81
  293. -- high flags: 2007
  294. -- rect: left=8 top=97 right=155 bottom=231
  295. -- title width / last selected line: 0
  296. -- icon id / first selected line: 0 / 0
  297. -- text alignment: 0
  298. -- font id: 156
  299. -- text size: 16
  300. -- style flags: 0
  301. -- line height: 17
  302. -- part name: Feedback2
  303.  
  304.  
  305. -- part 30 (field)
  306. -- low flags: 81
  307. -- high flags: 2007
  308. -- rect: left=224 top=169 right=287 bottom=447
  309. -- title width / last selected line: 0
  310. -- icon id / first selected line: 0 / 0
  311. -- text alignment: 0
  312. -- font id: 156
  313. -- text size: 16
  314. -- style flags: 0
  315. -- line height: 17
  316. -- part name: CorrectAnswer
  317.  
  318.  
  319. -- part 31 (field)
  320. -- low flags: 81
  321. -- high flags: 2004
  322. -- rect: left=147 top=132 right=304 bottom=356
  323. -- title width / last selected line: 0
  324. -- icon id / first selected line: 0 / 0
  325. -- text alignment: 0
  326. -- font id: 156
  327. -- text size: 16
  328. -- style flags: 0
  329. -- line height: 17
  330. -- part name: MasterFeedback
  331.  
  332.  
  333. -- part 32 (button)
  334. -- low flags: 80
  335. -- high flags: A002
  336. -- rect: left=215 top=279 right=296 bottom=284
  337. -- title width / last selected line: 0
  338. -- icon id / first selected line: 0 / 0
  339. -- text alignment: 1
  340. -- font id: 0
  341. -- text size: 12
  342. -- style flags: 0
  343. -- line height: 16
  344. -- part name: Done
  345. ----- HyperTalk script -----
  346. on mouseUp
  347.   global answerTracker
  348.   lock screen
  349.   if line (line 2 of fld "key") of answerTracker = "y" then
  350.     -- question correctly answered
  351.     set the hilite of bg btn (6 + line 1 of fld "key") to true
  352.     -- True btn is number 7, False is number 8
  353.   end if
  354.   hide fld "MasterFeedback"
  355.   hide bg btn "Done"
  356.   unlock screen
  357. end mouseUp
  358.  
  359.  
  360. -- part 33 (button)
  361. -- low flags: 00
  362. -- high flags: A004
  363. -- rect: left=179 top=321 right=340 bottom=324
  364. -- title width / last selected line: 0
  365. -- icon id / first selected line: 0 / 0
  366. -- text alignment: 1
  367. -- font id: 0
  368. -- text size: 12
  369. -- style flags: 0
  370. -- line height: 16
  371. -- part name: Answer
  372. ----- HyperTalk script -----
  373. on mouseUp
  374.   global answerTracker
  375.   lock screen
  376.   if line 1 of fld "key" ‚↠3
  377.   then put "y" into line (line 2 of fld "key") of answerTracker
  378.   put fld "CorrectAnswer" into fld "MasterFeedback"
  379.   show fld "MasterFeedback"
  380.   show bg btn "Done"
  381.   unlock screen
  382. end mouseUp
  383.  
  384.  
  385. -- part 43 (field)
  386. -- low flags: 81
  387. -- high flags: 0001
  388. -- rect: left=423 top=0 right=13 bottom=466
  389. -- title width / last selected line: 0
  390. -- icon id / first selected line: 0 / 0
  391. -- text alignment: 65535
  392. -- font id: 4
  393. -- text size: 9
  394. -- style flags: 0
  395. -- line height: 12
  396. -- part name: CardTitle
  397.  
  398.  
  399. -- part 44 (button)
  400. -- low flags: 00
  401. -- high flags: 2000
  402. -- rect: left=482 top=208 right=234 bottom=509
  403. -- title width / last selected line: 0
  404. -- icon id / first selected line: 1234 / 1234
  405. -- text alignment: 1
  406. -- font id: 0
  407. -- text size: 12
  408. -- style flags: 0
  409. -- line height: 16
  410. -- part name: Lesson
  411. ----- HyperTalk script -----
  412. on mouseUp
  413.   lesson "1.1.2"
  414. end mouseUp
  415.  
  416.  
  417. -- part 45 (field)
  418. -- low flags: 81
  419. -- high flags: 0002
  420. -- rect: left=0 top=309 right=342 bottom=90
  421. -- title width / last selected line: 0
  422. -- icon id / first selected line: 0 / 0
  423. -- text alignment: 0
  424. -- font id: 3
  425. -- text size: 12
  426. -- style flags: 0
  427. -- line height: 16
  428. -- part name: Key
  429. ----- HyperTalk script -----
  430. on mouseUp
  431.   hide me
  432. end mouseUp
  433.